home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / coral-sea.g < prev    next >
Encoding:
Text File  |  1998-05-22  |  5.1 KB  |  273 lines  |  [TEXT/XCNQ]
  1. (game-module "coral-sea"
  2.   (title "Coral Sea")
  3.   (blurb "Battle in the Coral Sea, May 1942")
  4.   (instructions "The Japanese must attempt to capture Port Moresby.")
  5.   (base-module "ww2-div-pac")
  6.   (variants
  7.    (see-all false)
  8.    )
  9.   )
  10.  
  11. (set synthesis-methods nil)
  12.  
  13. (set initial-date "1 May 1942")
  14.  
  15. (scorekeeper (do last-side-wins))
  16.  
  17. ;; Real goal is Port Moresby...
  18.  
  19. (add u* point-value 0)
  20. (add port point-value 10)
  21. (add (cl ca) point-value 1)
  22. (add (cvl cvs) point-value 2)
  23. (add cv point-value 5)
  24.  
  25. (world 800)
  26.  
  27. (area 130 90)
  28.  
  29. (area (terrain
  30.   "130a"
  31.   "130a"
  32.   "130a"
  33.   "130a"
  34.   "130a"
  35.   "130a"
  36.   "130a"
  37.   "130a"
  38.   "130a"
  39.   "130a"
  40.   "130a"
  41.   "130a"
  42.   "130a"
  43.   "130a"
  44.   "38ac91a"
  45.   "130a"
  46.   "60abab67a"
  47.   "58aca2b68a"
  48.   "57ab72a"
  49.   "130a"
  50.   "56ab73a"
  51.   "130a"
  52.   "130a"
  53.   "130a"
  54.   "130a"
  55.   "130a"
  56.   "130a"
  57.   "96ac33a"
  58.   "73ab22a2c32a"
  59.   "67a2b8ab52a"
  60.   "72acab55a"
  61.   "67ab5acba2b52a"
  62.   "7a4d62ab56a"
  63.   "5a7d2a2d114a"
  64.   "5a8d33ad83a"
  65.   "7a7d4a6d106a"
  66.   "4a2d3a6d3a10d14adb5ad80a"
  67.   "11a4d2a14d11ab8a2d77a"
  68.   "3a3d4a10d6f8d19a2d75a"
  69.   "3a4d5a11d6f7d19ad74a"
  70.   "19a8d4f7d15a2dad73a"
  71.   "22a7d3f9d13a2dad72a"
  72.   "12ad2a2d6ab8d2f9d2a4b5a2d74a"
  73.   "16ad6a3b7d5f7dabda7d7ad66a"
  74.   "16ad11a6d7f5d2ab2a4d9a2d64a"
  75.   "28aba6d10f3d16a2d51ac11a"
  76.   "28aba8d8f2d18a2dad48a2c10a"
  77.   "29a16d3fd21a2da2d43a2c10a"
  78.   "27aba18d2f2d24a2dad40ac10a"
  79.   "10aba2bdab12ab3a9d3a3d3fd18ada2d5ad50a"
  80.   "14ad2ab11ab5a6db5a4df2d20ad2a2dad49a"
  81.   "11ab3ab25a2bab4a3d2f2d2a2b2ad60a2c5a"
  82.   "11ab2ab26a3bab5a3d2fd3ad21a2d40ac5a"
  83.   "41ad3b9a6d2ad67a"
  84.   "42a3b13a4d68a"
  85.   "16ad26ad2bab14abdb15ac49a"
  86.   "17a2da3d20a2d2b18ab64a"
  87.   "20a3d4a2d14a2d3b82a"
  88.   "18a15d10a3d3b81a"
  89.   "18ac14d10a4d4b79a"
  90.   "18ac2d3c8d12a4d4b78a"
  91.   "18ac2d4c7dad11a5d3b77a"
  92.   "18a3d5c6d13ad2c3d3b76a"
  93.   "19ad7c6d12a2d2c3d3b75a"
  94.   "20a9c5d12ad4c2da2b48ac25a"
  95.   "21a10c4d11ad5cda2b74a"
  96.   "22a10c5d9a2d4c2da2b10ab35ad26a"
  97.   "23a11c5d8a6cda3b45a2d25a"
  98.   "24a12c4d7a7cda3b6ab38a2d2ac21a"
  99.   "25a17c5a8cda4b69a"
  100.   "26a17c4a9cda4b45acac20a"
  101.   "27a30cd2a4b66a"
  102.   "28a30cdb2a5b43ac19a"
  103.   "29a33c2a5b61a"
  104.   "30a33c3a4b42ac17a"
  105.   "31a34c2a6b57a"
  106.   "32a35c2a6b27ac5ac5ac15a"
  107.   "33a35c2a7b26a2c5ac19a"
  108.   "34a35c2a7b27a2c23a"
  109.   "35a36ca7b28a2c21a"
  110.   "36a36c2ab2a2b51a"
  111.   "37a37c4a2b50a"
  112.   "38a38ca4b49a"
  113.   "39a38ca3b49a"
  114.   "40a38c2ab49a"
  115.   "41a39c3ab46a"
  116.   "42a39ca2b46a"
  117.   "43a39c48a"
  118.   "44a39c47a"
  119.   "130a"
  120. ))
  121.  
  122. (area (features (
  123.    ( 1 "continent" "Australia")
  124.    ( 2 "island" "Bougainville")
  125.    ( 5 "island" "Choiseul")
  126.    ( 6 "island" "Christmas")
  127.    ( 7 "island" "Viti Levu")
  128.    ( 8 "island" "Vanua Levu")
  129.    ( 9 "island" "Guadalcanal")
  130.    ( 10 "island" "New Caledonia")
  131.    ( 11 "island" "New Guinea")
  132.    ( 12 "island" "Samoa")
  133.    ( 13 "island" "Santa Catalina")
  134.    ( 23 "island" "New Britain")
  135.    ( 24 "island" "New Ireland")
  136.    ( 25 "island" "Santa Isabel")
  137.    ( 26 "island" "Malaita")
  138.    ( 27 "island" "San Cristobal")
  139.    ( 28 "island" "New Georgia")
  140.    ( 29 "island" "Espiritu Santo")
  141.    ( 30 "island" "Efate")
  142.    ( 31 "island" "Ponape")
  143.    ( 32 "island" "Malekula")
  144.    ( 33 "island" "Trobriand")
  145.    ( 34 "island" "Fergusson")
  146.    ( 35 "island" "Tagula")
  147.    ( 36 "island" "Rennell")
  148.   )
  149.   "130a"
  150.   "130a"
  151.   "130a"
  152.   "130a"
  153.   "130a"
  154.   "130a"
  155.   "130a"
  156.   "130a"
  157.   "130a"
  158.   "130a"
  159.   "130a"
  160.   "130a"
  161.   "130a"
  162.   "130a"
  163.   "130a"
  164.   "130a"
  165.   "130a"
  166.   "130a"
  167.   "130a"
  168.   "130a"
  169.   "130a"
  170.   "130a"
  171.   "130a"
  172.   "130a"
  173.   "130a"
  174.   "130a"
  175.   "130a"
  176.   "130a"
  177.   "130a"
  178.   "130a"
  179.   "130a"
  180.   "130a"
  181.   "7a4l119a"
  182.   "7a5l118a"
  183.   "7a6l117a"
  184.   "8a6l4a6l106a"
  185.   "9a6l3a10l102a"
  186.   "10a5l2a14l20a2y77a"
  187.   "14a20l19a2y75a"
  188.   "15a21l19ay74a"
  189.   "19a19l15a2xay73a"
  190.   "22a19l13a2xay72a"
  191.   "24a19l11a2x74a"
  192.   "25a20l4a7x7ac66a"
  193.   "28a18l5a4x9a2c64a"
  194.   "29a20l16a2c51ah11a"
  195.   "29a19l18a2caf48a2h10a"
  196.   "28a21l21a2fa2z43a2h10a"
  197.   "28a23l24a2za{40ah10a"
  198.   "33a9l3a7l20a2}5a{50a"
  199.   "35a6l6a7l20a}2a2ja{49a"
  200.   "49a7l67a2i5a"
  201.   "51a6l25a2|40ai5a"
  202.   "54a6l70a"
  203.   "58a4l68a"
  204.   "16ab26ab86a"
  205.   "16a2b2a3b20a2b85a"
  206.   "16a3ba3b4a2b14a2b85a"
  207.   "18a12b13a3b84a"
  208.   "18a14b11a4b83a"
  209.   "18a14b12a4b82a"
  210.   "18a15b12a5b80a"
  211.   "18a16b11a6b79a"
  212.   "20a14b11a7b78a"
  213.   "20a15b11a7b77a"
  214.   "21a15b10a7b77a"
  215.   "22a16b7a9b49a~26a"
  216.   "23a15b7a9b49a2~25a"
  217.   "24a15b6a10b49a2~24a"
  218.   "25a18b4a9b74a"
  219.   "26a17b4a10b73a"
  220.   "27a31b72a"
  221.   "28a31b51a:19a"
  222.   "29a33b68a"
  223.   "30a33b67a"
  224.   "31a34b65a"
  225.   "32a35b35ak27a"
  226.   "33a35b35a2k25a"
  227.   "34a35b36a2k23a"
  228.   "35a36b36a2k21a"
  229.   "36a36b58a"
  230.   "37a37b56a"
  231.   "38a38b54a"
  232.   "39a38b53a"
  233.   "40a38b52a"
  234.   "41a39b50a"
  235.   "42a39b49a"
  236.   "43a39b48a"
  237.   "44a39b47a"
  238.   "130a"
  239. ))
  240.  
  241. (a-inf-div 50 38 1)
  242. (dd 106 10 1)
  243. (ca 63 15 1 (n "Kent"))
  244. (ca 107 9 1 (n "New Orleans"))
  245. (ca 63 15 1 (n "Northampton"))
  246. (ca 107 9 1 (n "Portland"))
  247. (cv 108 9 1 (n "Lexington"))
  248. (cv 108 9 1 (n "Yorktown"))
  249. (airfield 41 36 1 (n "Thursday Island"))
  250. (airfield 51 37 1)
  251. (port 55 20 1 (n "Cairns"))
  252. (port 51 37 1 (n "Port Moresby") (point-value 50))
  253. (town 107 10 1 (n "Noumea"))
  254. (town 63 14 1 (n "Townsville"))
  255.  
  256. (j-inf-div 53 49 2)
  257. (aa 52 49 2)
  258. (dd 39 75 2)
  259. (cl 54 50 2)
  260. (cl 54 50 2)
  261. (ca 52 50 2 (n "Aoba"))
  262. (ca 52 50 2 (n "Furutaka"))
  263. (ca 37 75 2)
  264. (cvl 53 50 2 (n "Shoho"))
  265. (cvs 67 42 2 (n "Chitose"))
  266. (cvs 53 50 2)
  267. (cv 39 74 2 (n "Shokaku"))
  268. (cv 38 74 2 (n "Zuikaku"))
  269. (airfield 51 52 2 (n "Kavieng"))
  270. (airfield 47 43 2 (n "Lae"))
  271. (port 38 75 2 (n "Truk"))
  272. (town 54 49 2 (n "Rabaul"))
  273.